﻿Public Class Singleton
    Private Shared FInstance As Singleton = Nothing
    Public CurrentConId As String
    Public CurrentConName As String
    Public CurrentConEmail As String
    Public CurrentConEmailPassword As String
    Public CurrentConSecurityLevel As Integer
    Private Sub New()

    End Sub

    Public Shared ReadOnly Property Instance()
        Get
            If (FInstance Is Nothing) Then
                FInstance = New Singleton()
            End If
            Return (FInstance)
        End Get
    End Property

End Class
